home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / drvplus / demomain.frm < prev    next >
Text File  |  1994-08-08  |  5KB  |  166 lines
  1. VERSION 2.00
  2. Begin Form DemoMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "DrvPlus 1.65 Demo"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   1080
  8.    ClientTop       =   2415
  9.    ClientWidth     =   7365
  10.    ClipControls    =   0   'False
  11.    FillColor       =   &H00FF00FF&
  12.    Height          =   4710
  13.    Left            =   1020
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   4020
  17.    ScaleWidth      =   7365
  18.    Top             =   1785
  19.    Width           =   7485
  20.    Begin Label Label1 
  21.       Alignment       =   2  'Center
  22.       BackColor       =   &H00C0C0C0&
  23.       Caption         =   "Label1"
  24.       Height          =   2055
  25.       Left            =   1200
  26.       TabIndex        =   0
  27.       Top             =   480
  28.       Width           =   4935
  29.    End
  30.    Begin Menu mnuInfo 
  31.       Caption         =   "&Demos"
  32.       Begin Menu mnuInfoRam 
  33.          Caption         =   "System &RAM..."
  34.       End
  35.       Begin Menu mnuInfoDrvSize 
  36.          Caption         =   "&Drive Info..."
  37.       End
  38.       Begin Menu mnuInfoFileTD 
  39.          Caption         =   "&File Time/Date..."
  40.       End
  41.       Begin Menu mnuInfoVolName 
  42.          Caption         =   "Change Volume Name..."
  43.       End
  44.       Begin Menu mnuInfoSep1 
  45.          Caption         =   "-"
  46.       End
  47.       Begin Menu mnuExit 
  48.          Caption         =   "E&xit"
  49.       End
  50.    End
  51.    Begin Menu mnuHelp 
  52.       Caption         =   "&Help"
  53.       Begin Menu mnuHelpContents 
  54.          Caption         =   "DLL Help &Contents..."
  55.       End
  56.       Begin Menu mnuHelpSearch 
  57.          Caption         =   "DLL Help &Search..."
  58.       End
  59.       Begin Menu mnuHelpSep 
  60.          Caption         =   "-"
  61.       End
  62.       Begin Menu mnuHelpOrderForm 
  63.          Caption         =   "&Order Form..."
  64.       End
  65.       Begin Menu mnuHelpEvaluation 
  66.          Caption         =   "&Evaluation Form..."
  67.       End
  68.    End
  69. End
  70. 'VB demonstration for DrvPlus.DLL
  71.  
  72.  
  73. Sub Form_Load ()
  74.     
  75.     x% = GetDrvPlusVersion()
  76.     nl = Chr$(13) + Chr$(10)
  77.     FormCenterScreen Me
  78.     mnuHelp.Caption = Chr$(8) + "&Help"
  79.     
  80.     msg$ = nl + "This small application demonstrates some" + nl
  81.     msg$ = msg$ + "of the functions of DrvPlus.DLL and a few" + nl
  82.     msg$ = msg$ + "VB tricks too.  Print and study the program" + nl
  83.     msg$ = msg$ + "to fully understand how it all works" + nl
  84.     msg$ = msg$ + "together.  Also, read the online Help file" + nl
  85.     msg$ = msg$ + "DrvPlus.HLP to learn about the functions in" + nl
  86.     msg$ = msg$ + " this version of DrvPlus ... and about how to" + nl
  87.     msg$ = msg$ + " register this shareware utility."
  88.     Label1.Caption = msg$
  89. End Sub
  90.  
  91. Sub Form_Paint ()
  92.     DoForm3D Me, sunken, 3, 0
  93.     DoForm3D Me, raised, 1, 3
  94.     DoControl3D Label1, raised, 4
  95. End Sub
  96.  
  97. Sub mnuExit_Click ()
  98.     End
  99. End Sub
  100.  
  101. Sub mnuHelpContents_Click ()
  102.     On Error Resume Next
  103.     MyHelpFile$ = App.Path
  104.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "DRVPLUS.HLP"
  105.     Screen.MousePointer = 11
  106.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_CONTENTS, 0&)
  107.     Screen.MousePointer = 0
  108. End Sub
  109.  
  110. Sub mnuHelpEvaluation_Click ()
  111.         On Error Resume Next
  112.         WinPath$ = GetWinDir()
  113.         WinPath$ = AddSeparator(WinPath$) + "WRITE.EXE"
  114.         DocPath$ = App.Path
  115.         DocPath$ = AddSeparator(DocPath$) + "EVALFRM.WRI"
  116.         FullPath$ = WinPath$ + " " + DocPath$
  117.         Screen.MousePointer = 11
  118.         x = Shell(FullPath$, 3)
  119.         Screen.MousePointer = 0
  120. End Sub
  121.  
  122. Sub mnuHelpOrderForm_Click ()
  123.         On Error Resume Next
  124.         WinPath$ = GetWinDir()
  125.         WinPath$ = AddSeparator(WinPath$) + "WRITE.EXE"
  126.         DocPath$ = App.Path
  127.         DocPath$ = AddSeparator(DocPath$) + "ORDERFRM.WRI"
  128.         FullPath$ = WinPath$ + " " + DocPath$
  129.         Screen.MousePointer = 11
  130.         x = Shell(FullPath$, 3)
  131.         Screen.MousePointer = 0
  132. End Sub
  133.  
  134. Sub mnuHelpSearch_Click ()
  135.     On Error Resume Next
  136.     MyHelpFile$ = App.Path
  137.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "DRVPLUS.HLP"
  138.     Screen.MousePointer = 11
  139.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_PARTIALKEY, "")
  140.     Screen.MousePointer = 0
  141. End Sub
  142.  
  143. Sub mnuInfoDrvSize_Click ()
  144.     Screen.MousePointer = 11
  145.     DriveInfo.Show 1
  146. End Sub
  147.  
  148. Sub mnuInfoFileTD_Click ()
  149.     Screen.MousePointer = 11
  150.     FileTD.Show 1
  151. End Sub
  152.  
  153. Sub mnuInfoRam_Click ()
  154.     Screen.MousePointer = 11
  155.     RamInfo.Show 1
  156. End Sub
  157.  
  158. Sub mnuInfoVolName_Click ()
  159. ShowIt:
  160.     Me.Refresh
  161.     Screen.MousePointer = 11
  162.     ChgVname.Show 1
  163.     If FormPassString = "NewVol" GoTo ShowIt
  164. End Sub
  165.  
  166.